home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / diag / memsz153.zip / CATALA.CMD < prev    next >
OS/2 REXX Batch file  |  1992-12-12  |  1KB  |  52 lines
  1. /* CATALA.CMD: Instal·lació de MEMSIZE en català */
  2.  
  3. /* Càrregar REXXUTIL */
  4. Call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  5. Call sysloadfuncs
  6.  
  7. Call SysCls
  8. Say 'Instal·lació de MEMSIZE...';
  9. Say '';
  10.  
  11. Say 'Si us plau, escribiu el nom complet del directori on voleu';
  12. Say '  instal·lar el programa MEMSIZE (per defecte és C:\OS2\APPS): ';
  13. Pull Directory
  14. If Directory = "" Then Directory='C:\OS2\APPS'
  15.  
  16. Say "Voleu instal·lar-lo de forma que s'executi automàticament a l'arrencar? (S/N)";
  17. Pull YesNo
  18. If YesNo = "S" Then
  19.   Do
  20.   Folder='<WP_START>'
  21.   Say "L'objecte es copiarà a la carpeta Inici.";
  22.   End
  23. Else
  24.   Do
  25.   Folder='<WP_DESKTOP>'
  26.   Say "L'objecte es copiarà a l'escriptori.";
  27.   End
  28.  
  29. Say 'Copiant MEMSIZE al directori ' Directory '...';
  30. Say '';
  31. Language='CATALA'
  32. Copy MEMSIZE.EXE Directory
  33. Copy Language".DLL" Directory"\MEMSIZE.DLL"
  34. Copy Language".HLP" Directory"\MEMSIZE.HLP"
  35.  
  36. Say "Creant l'objecte del programa...";
  37. Say ''; 
  38.  
  39. Type='WPProgram'
  40. Title='Recursos del Sistema'
  41. Parms='MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\MEMSIZE.EXE;STARTUPDIR='Directory';OBJECTID=<MEMSIZE>;NOPRINT=YES'
  42.  
  43. Result=SysCreateObject(Type,Title,Folder,Parms)
  44.  
  45. If Result=1 Then 
  46.   Call charout ,"...   L'objecte s'ha creat.  Final"
  47. Else             
  48.   Call charout ,"...   No s'ha pogut crear l'objecte! Estat final=" Result
  49.  
  50. Exit
  51.  
  52.